#define array{
#	OpAdr OpDat Fix Siz(Reserved) A0 D0 A1 D1 A2 D2...
#}

#F0 OpDat SpaceUnk arrayRead(OpAdr): OpDat=A[opAdr],A[opAdr]=0
(>
>[-]>>>+<<<<[->>>>[>>]+[<<]<<]
>>>>[>>]<[-<[<<]<+>>>[>>]<]<[<<]
>>[>>]<<[-<<]<<
<)

#F1 void SpaceUnk arrayWrite(OpAdr,opDat): A[opAdr]=Opdat,OpDat=0
+(>
>>>>+<<<<[->>>>[>>]+[<<]<<]
>>>>[>>]<[-]<[<<]
<[->>>[>>]<+<[<<]<]
>>>[>>]<<[-<<]<<
<)-